﻿Public Class Actualizar_cliente1
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub BT_buscar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BT_buscar.Click
        panel_cliente.Visible = True
        BT_actualizar.Visible = True
        Dim nombres_cliente As String
        Dim apellidos_cliente As String
        Dim tipo_documento_cliente As String
        Dim numero_documento_cliente As String
        Dim numero_contacto_cliente As String
        Dim direccion_cliente As String
        Dim e_mail_cliente As String

        Dim storexpress As New DCStorexpressDataContext
        Try
            Dim query = storexpress.p_buscar_cliente(TB_cedula.Text)
            Dim registro = query.First

            nombres_cliente = registro.NOMBRES_CLIENTE
            apellidos_cliente = registro.APELLIDOS_CLIENTE
            tipo_documento_cliente = registro.TIPO_DOCUMENTO_CLIENTE
            numero_documento_cliente = registro.NUMERO_DOCUMENTO_CLIENTE
            numero_contacto_cliente = registro.NUMERO_CONTACTO_CLIENTE
            direccion_cliente = registro.DIRECCION_CLIENTE
            e_mail_cliente = registro.E_MAIL_CLIENTE


            TB_nombres.Text = nombres_cliente
            TB_apellidos.Text = apellidos_cliente
            TB_tipodoc.Text = tipo_documento_cliente
            TB_numerodoc.Text = numero_documento_cliente
            TB_numerotel.Text = numero_contacto_cliente
            TB_direccion.Text = direccion_cliente
            TB_correo.Text = e_mail_cliente



        Catch ex As InvalidOperationException
            If MsgBox("no hay registros coincidentes") Then
                panel_cliente.Visible = False
                BT_actualizar.Visible = False
            End If

        End Try
    End Sub

    Protected Sub BT_actualizar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BT_actualizar.Click
        Dim storexpress As New DCStorexpressDataContext
        Dim mensaje As MsgBoxResult
        mensaje = MsgBox("¿Desea actualizar?", MsgBoxStyle.YesNo, "ACTUALIZACION")
        If mensaje = MsgBoxResult.Yes Then
            storexpress.p_actualizar_cliente(TB_nombres.Text, TB_apellidos.Text, TB_tipodoc.Text, TB_numerodoc.Text, TB_numerotel.Text, TB_direccion.Text, TB_correo.Text, TB_cedula.Text)
            MsgBox("Registro Actualizado")
            TB_nombres.Text = ""
            TB_apellidos.Text = ""
            TB_tipodoc.Text = ""
            TB_numerodoc.Text = ""
            TB_numerotel.Text = ""
            TB_direccion.Text = ""
            TB_correo.Text = ""
            BT_actualizar.Visible = False

        End If
    End Sub

    Protected Sub BT_atras_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BT_atras.Click
        Response.Redirect("~/Actualizar.aspx")
    End Sub
End Class